extern int ztrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);
/*:ref: lsame_ 12 4 13 13 124 124 */
/*:ref: xerbla_ 14 3 13 4 124 */
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: dlabad_ 14 2 7 7 */
/*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
/*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
/*:ref: zladiv_ 9 3 9 9 9 */
/*:ref: zdscal_ 14 4 4 7 9 4 */
/*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
